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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del C16 pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle- 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti- 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un corret- 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega- 
to alla confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub- 
blicata alVinterno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vostra 
raccolta di programmi. 
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3D TIME TREK 


Vita dura per gli spaziali. 
Poche distrazioni, sempre 
all’erta e magre soddisfazio- 
ni. Astronavi nemiche ab- 
battute, battaglie furiose 
dalle quali si è usciti vitto- 
riosi, o almeno vivi, anche 
se malconci: questi gli argo- 
menti di conversazione dei 
piloti della flotta aerea del 
pianeta Corillian sopravvis- 
suti ad una spaventosa in- 
cursione dei pirati alieni. 
Caricare il programma con 
LOAD e RETURN. 

Ora indossate la tuta spazia- 
le e il casco e partite. La vo- 
stra astronave è ben fornita 
di strumenti per l’intercet- 
tazione degli alieni ai quali 
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avete giurato vendetta. Siete 
sicuri di ricordarvi tutti i 
comandi? Riepiloghiamo. 
Già sapete che si comunica 
con il computer di bordo 
tramite la tastiera e il jo- 
ystick. Tutto sommato i co- 
mandi non sono poi moltis- 
simi. 

L’attivazione dei sensori a 
lungo raggio si ottiene, ve lo 
ricordate bene, premendo il 
tasto W L" sulla tastiera. In 
basso nel centro compaiono 
i ben noti simboli che comu- 
nicano notizie di vitale im- 
portanza: A per alieni, S per 
quadrante vuoto, P per il 
pianeta sul quale poter effet- 
tuare le riparazioni all’a- 
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stronave danneggiata. 
Un’occhiata alla situazione 
e si preme CTRL per tornare 
al lavoro normale. 

Sarà poi Lene uno sguardo 
alla mappa dell’intera galas- 
sia per individuare la pre- 
senza del nemico e la pro- 
pria posizione. Sapete in 
quale quadrante vi trovate 
perché le coordinate del 
quadrante sono indicate in 
alto a destra. Premete quin- 
di “M” (mappa) e poi rien- 
trate con CTRL. 

Lo scopo è di distruggere 
quante più astronavi nemi- 
che riusciate. 

Se vi trovate in un quadran- 
te libero da alieni, condizio- 
ne GREEN (verde), vi spo- 
sterete in un quadrante “cal- 
do” in cui sappiate per certo 
di trovarvi degli alieni. L’e- 
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sperienza vi dice che non 
potete raggiungere con un 
solo balzo l’estremo opposto 
dell’universo ed essere an- 
cora in grado di combattere. 
Comincerete quindi a di- 
struggere gli alieni che sono 
più vicini. 

Per spostarvi ad un altro 
quadrante, premete il tasto 
“N” e sarete in contatto con 
il computer addetto alla na- 
vigazione. Batterete prima 
la coordinata verticale e poi 
quella orizzontale e la tran- 
sizione avverrà dopo poco 
tempo. Occhio al segnale 
CONDITION. Non appena 
verrà segnalato che la con- 
dizione è RED (rosso) do- 
vrete prepararvi alla batta- 
glia. 

Una pressione sul tasto “B” 
(battaglia) permette di uti- 
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lizzare una parte dell’ener- 
gia che vi resta per creare 
uno schermo protettivo 
(SHIELD) attorno all’astro- 
nave. Battete un numero da 
0 a 9. Premete poi un tasto 
qualsiasi. 

Buttatevi ora nella mischia. 
Per avere notizie dei danni 
subiti, battete “D” (danneg- 
giamenti). 

Per chi non ha il joystick, i 
tasti corrispondenti per i 
comandi sono: 

FUOCO - RUN/STOP 


SU = 

SINISTRA = : 

DESTRA = * 

GIÙ = / 

Una nota: Il mirino si spo- 
sta con moto contrario 
all’astronave. Si preme 
per su e il mirino va in giù, 
si preme * per destra e il mi- 
rino va a sinistra. Ma voi, 
veterani di mille battagie or- 
mai non ci fate più caso. E 
vita, dura, e una difficoltà in 
più non fa che darvi mag- 
gior grinta. 
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Guida all’input C16 


Norme per la 

battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift” e “CBM”, sono codifi- 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori- 
cino è codificato con >SH 
S <. Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 


TABELLA DI CONVERSIONE 


{HOME } HOME 

{ CLR } PULIZIA SCHERMO 

{CUR.SU } CURSORE IN ALTO 

{CUR.GIU} CURSORE IN BASSO 

{CUR.DES} CURSORE A DESTRA 

{CUR.SIN} CURSORE A SINISTRA 

{ 3PC } SPAZIO 

{ RVS ON } REVERSE ON 

{ RVS OFF } REVERSE OFF 

{ FLASH ON } FLASH ON 

(FLASH OFF} FLASH OFF 

{ I N ST } INSERT 

{BLACK} COL. NERO (CTRL-1) 

{WHITE} COL. BIANCO (CTRL+2) 

(RED) COL. ROSSO (CTRL+3) 

{ C Y A N } COL. CIANO (CTRL+M) 

{PURPLE} COL. PORPORA (CTRL + 5) 

{GREEN} COL. VERDE (CTRL + 6) 

{BLUE} COL. BLU (CTRL + 7) 

{YELLOW} COL. GIALLO (CTRL«-8) 

{ORANGE} COL. ARANCIO (CBM*1) 

{BROWN} COL. MARRONE. (CBM+2) 

{YL-GREEN} COL. GIALLO-VERDE (CBM+3) 

{PINK} COL. ROSA (CBM + 4) 

{ BL'-GRN } COL. BLU-VERDE (CBM + 5) 

{ LT . BLUE } COL. BLU CHIARO (CBM + 6) 

{ D . BLUE } COL. BLU SCURO (CBM + 7) 

{LT. GREEN} COL. VERDE CHIARO (CBM + 8) 
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PREDA E 
CACCIATORE 




20 

CLR:COLORO, 

8, 

3 : 

: COLOR 4 , 7 , 

3 : COLOR 1 ,2,7 

30 

GOSUB710 







40 

GOSUB850 







50 

SCNCLR 







60 

SC = 3072 : CO- 

20 

48 : BE- 

3072 + 

207 


70 

A $ = " { R V S ON 

H 

2 

SPC} 

{ R VS 

OFF}": 

B$ = " 


C$=A$+B$ 







80 

E $ « " {2 SPC} 

ISH 

Q 1 n 




90 

FORI-1 T040 : 

cc 

$- 

= CC$ + 

" { CUR 

.DES}" 

: NEXT 

100 F0R 1=1 T025 

: R 

R $ = R R $ 

+ " {CU 

R .GIU} 

" : NEXT 










Siete una preda inseguita da 
un tenace cacciatore, un to- 
po inseguito da un gatto, o 
un ladro inseguito da un po- 
liziotto. State fuggendo in 
un dedalo di strade. Ad ogni 
incrocio vi sono dei premi, 
che potranno essere dei pez- 
zi di cacio se siete un topo, o 
dei gioielli da rubare se siete 
un ladro. Il programma co- 
munque li chiama “pillole 
energetiche”, che la preda 
deve mangiare per sopravvi- 
vere. Ogni volta che si attra- 
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versa un incrocio, una delle 
pillole scompare. Scopo del 
gioco è quello di mangiare 
tutte le pillole energetiche 
senza farsi catturare dal 
cacciatore. 

Ci si muove nel labirinto 
usando i tasti I (sinistra), P 
(destra), Q (su) e Z (giù). Se 
si resta fermi il cacciatore 
(la crocetta lampeggiante) 
si avvicina sempre più e in- 
fallibilmente vi trova, con 
conseguenze funeste. Vi do- 
vete quindi spostare, appro- 
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1 1 o 

1 20 

1 30 

1 40 
1 50 

1 60 

1 70 
1 80 
1 90 
200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 


FORI-SCTOSC+39 : POKEI , 1 60 : P0KEI+960, 1 
60 : NEXT 

F0RI-SCT0SC+999STEP40 :POKEI,160:POKE 
1+39,160: NEXT 

PRINT" {HOME } " ; TAB( 1 0) ; " { RVS ON } PRED 
A E CACCIATORE " 

F $ « : FORI = 1 T08 :F$=F$*E$:NEXT 
D $ = " " :FORI-1T010:D$-D$+C$:NEXT: PRINT 
: PRINT : PRINT : PRINT 

FOR I = 1 T05 : PRINTTAB( 7 ) ; D$ : PRINT TAB(7) 

;D$: PRINT TAB(7) ;F$:NEXT 

PR I NTT AB ( 7 ) ; D$ : PRINTTAB( 7 ) ; D$ 






R«2:C=0:FL«0:SW=0 


P0=BE+(R*40)+C :POKEPO, 1 02 

CI * 2 6 : R 1 =1 6 : P 1 = B E + ( R 1 * 4 0 ) +C 1 :VE = PEEK 

( PI ) : P0KEP1 , 86 

A«PEEK(1 98 ) ; IFA-62THENGQSUB37Q 
I F A = 1 2THENG0SU B420 
IFA=33THENG0SUB470 
I F A = 4 1 THENGOSU B520 
G0SUB290 

IFINT(CN/40)«CN/40ANDFL=1THEN640 
PRINT" {HOME}” ;LEFT$(RR$,3) ;LEFT$(CC$ 
» 1 5 ) ; " { R VS ONJPUNTI: " ; S 1 
G0T021 0 

IFSWOAWTHENSW-SW+1 : R ETUR N 
SW-0 

PC- PI : IFC1 <CTHENC2«C1 sCI «CI +1 : P 1 -BE + 
(RI * 40 ) +C 1 :IFPEEK(P1 )=160THENC1®C2:P 
1 -PC 

IFC1>CTHENC2-C1:C1«C1-1:P1«BE+(R1*40 
)+C1 :IFPEEK(P1 )-1 60THENC1 -C2 : PI -PC 
IFR 1 <RTHENR2 = R 1 : RI «RI + 1 :P1=BE+(R1*40 
)+C1:IFPEEK(P1)«l60THENR1»R2:P1*PC 
1FR1 >RTHENR2 = R1 :R1 =R1~1 :P1=BE+(R1*40 
)+C1 : IFPEEK( PI )«1 60THENR1 -R2: PI -PC 
POKEPC, VE: VE = PEEK(P1 ) : I F VE- 1 02THENGO 
S'JB600 : GOT020 
P0KEP1 , 86 : RETURN 
IFR-OTHENRETURN 

T1«PO:R=R-1:PO«BE+(R*40)+C:IFPEEK(PO 
) -1 60THENPO-T1 :R=R+1 : RETURN 
IFPEEK(P0)«1 3THEN570 

IFPEEK(P0)=8lTHENS1 =S1 +1 :CN«CN+1 :FL = 
1 

P0KET1 f 32 : POKEPO , 1 02 : RETURN 
IFR-1 6THENRETURN 

T1«PO:R=R+1:PO«BE+(R*40)+C:IFPEEK(PO 
) -1 60THENP0-T1 : R = R + 1 : RETURN 
IFPEEK(P0)«81THENS1 -SI +1 : CN-CN+ 1 
IFPEEK ( PO ) -86THEN570 
P0KET1 ,32: POKEPO, 102: RETURN 
IFC-OTHENRETURN 

TI -PO: C-C- 1 :PO«BE+(R*40)+C: 1FPEEK(P0 
) -1 60THENC-C+ 1 : P0-T1 : RETURN 
IFPEEK(P0)=81THENCN=CN+1 :S1 -SI +1 
IFPEEK ( PO )-86THEN570 















5 90 
600 

610 

620 

630 

640 

650 

660 

665 

670 

680 


690 

700 

710 


740 

745 


790 

800 

810 

820 

830 

840 

850 

860 

870 


P0KET1 , 32 : P0KEP0 , 1 0 2 : RETURN 
IFC=28THEN RETURN 

T 1 =P0 : C = C + 1 :PO=BE+(R*40)+C: IFPEEK(PO 

)*1 60THENC=C- 1 :P0«T1 : RETURN 

IFPEEK( PO ) = 8 1 THENCN^CN+1 :S1 =S1 +1 

IFPEEK(PO)=86THEN570 

P0KET1 , 32: POKEPO, 102: RETURN 

SCNCLR : PRINTTAB( 6 ) ; "SEI FINITO PROPR 

IO IN BOCCA" 

PRINT :PRINTTAB( 1 2) ;"AL CACCIATORE! ! ! 

t» 

PRINT : PRINT : PRINT" { 2 SPClHAI MANGI AT 
0" ;CN; "PILLOLE ENERGETICHE" 

PRINT: PRINT : GQSUB680 : G0T020 

SCNCLR : PRINT" SEI STATO CATTURATO DA 

L CACCIATORE !!!": PRINT : PRINT 

PRINT" {2 SPC1HAI MANGIATO" ; CN PILLO 

LE ENERGETICHE" : PRINT : PRINT 

G0SUB680 

RETURN 

SCNCLR 

PRINT" { CL R } " ;TAB( 1 3 ) " CONGRATULAZIONI 

PRINT: PRINT : PRINTTAB( 6) ; "HAI COMPLET 

ATO IL LIVELLO" ; T Y 

T Y = T Y + 1 :IFTY>4THENTY=4 

A W = 4 -T Y : PRINT : PRINT : G0SUB680 : GOTO 50 

PRINT :PRINTTAB(5) ;" PREMI UN TASTO PE 

R CONTINUARE" ; : FOR I = 1 T0500 : GET A $ : N E X 

T 

GET A$:IFA$ = " "THF.N690 
RETURN 

SCNCLR:PRINTTAB( 1 0) {WHITE} {RVS ON} 
PREDA E CACCIATORE " 

PRINT : PRINT : PRINT"DEVI ANDARE IN GIR 
0 PER LO SCHERMO IL" 

PRINT" PIU ' A LUNGO POSSIBILE SENZA F 
ARTI" 

PRINT "CATTURARE DAL CACCIATORE." 
PRINT" GUADAGNI PUNTI MANGIANDO LE PI 
LLOLE" 

PRINT "ENERGETICHE: SE RIESCI A FINIR 
LE LA" 

PRINT" PARTITA CONTINUA.": PRINT :PRIN 
T 

PRINT" PER MUOVERTI USA I SEGUENTI TA 
STI : " : PRINT 
PRINT TAB( 13); 

PR 1 NTT A B ( 1 3 ) 

PR I N TT A B ( 1 3) 

PRINTTABC 1 3) ; 

G0SUB680: COLOR 1 ,2,7 
RETURN 

SCNCLR : PRINT"LI VELLO DI DIFFICOLTA' 
(1-4)?"; 

GETL$ : IFL$<"1 "0RL$>"4"THEN860 
TY-VAL(L$) : A W = 4 - T Y : RETURN 


"I - 

SINISTRA" 

"P - 

DESTRA" 

”Q “ 

SU" 

"Z - 

GIU' " : PRINT: PRINT 


fittando della vostra mag- 
giore mobilità rispetto a 
quella del cacciatore. Se riu- 
scite a mangiare tutte le pil- 
lole, la partita prosegue al 
livello superiore, ma allora 
le cose non saranno più così 
facili. I livelli del gioco sono 
quattro. Gioco facile, ma che 
richiede velocità di riflessi e 
attenzione. 


Tratto da PaperSoft n. 

16/1985 

11 


ASSEDIO 
AL CASTELLO 


Nella lontana età di mezzo, 
l’oscuro medioevo, il nostro 
paese era suddiviso in una 
quantità di staterelli, con- 
tee, feudi, baronie, i cui si- 
gnori si erano conquistati 
potere e terre a suon di maz- 
zate sui cimeri dei nemici. 
Ogni feudo aveva un suo ca- 
stello, spesso assediato dai 
vicini. La guerra, questo 
passatempo dei signori, vie- 
ne qui rappresentata dalle 
azioni delle catapulte dei ca- 
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1 0 COLORO , 1 4 : COLORM , ì ì : VOL8 : PRINT" { CLR} " 
: COLOR 1 ,6,6 

20 PRINT"{5 SPCHSH U}{2 SH * } { SH 1} {SH 

U } { 2 SH * } l SH I) {SH U } { 2 SH *}{SH I 

} { C BM A } { 2 SH * } { C BM S} { C BM A > { 2 SH 

* } { SH 1} {CBM R} {SH U ) { 2 SH *}{SH I 

}" 

30 P R I N T " { 5 SP C } { SH -}{2 SPC}{SH -J {SH 
-}{4 SPC } { SH -}{4 SPC } { SH -}{4 SPC}{S 
H - } { 2 SPC } { SH -} {SH -} {SH -}{2 SPC 
} { SH 

40 PR I NT " { 5 SPC} {CBM Q}{2 SH *}{CBM W} { 
SH J } { 2 SH * } { SH 1} {SH J } { 2 SH *}{SH 
1} {CBM Q } { 2 SH * } { 2 SPC}{SH -}{2 SP 
C } { SH -} {SH -} {SH - } { 2 SPC } { SH 

50 P R I N T " {5 SPC } { SH -}{2 SPCHSH “H4 SP 
C } { SH - } { 4 SPC } { SH -} {SH -}{4 SPC}{S 
H - } { 2 SPC } { SH -} {SH -} {SH -}{2 SPC 
} { SH 

60 PRI NT" {5 SPC } { CBM E } { 2 SPCHCBM E} {S 
H J } { 2 SH * } { SH Kì {SH J}{2 SH * } { SH 
K} {CBM Z } { 2 SH *}{CBM X} {CBM Z } { 2 S 
H * } { SH K*} {CBM E} {SH J}{2 SH *}{SH 
K} " 

70 PRINT : PRINT : PRINT" { 1 5 SPC } { R ED } CONT RO 
L L I : n 

80 PRINT : PRINT : PRINT" { 8 SPC } { PUR P LE } • { GR 
EEN }Q{ PURPLE) ’ {4 SPCjALZA IL TIRO" 

90 PRINT : PRINT" { 8 SPC }»{ GREEN } Z { PUR P LE } ' 
{4 SPC)ABBASSA IL TIRO" 

100 PRINT : PRINT" { 8 SP C } ’ { GR E E N } P { P U R P LE } 
'{4 SPC } MUOVE VERSO DESTRA" 


stelli che si fronteggiano, 
separati fra loro da un’alta 
muraglia protettiva. 

Il castello nemico è quello di 
destra, quello la cui catapul- 
ta è azionata dal computer. 
Scopo del gioco è di distrug- 
gere completamente il ca- 
stello del nemico azionando 
la propria catapulta, che si 
può spostare avanti e indie- 
tro con i tasti I (sinistra) e 
P (destra). Con Q e Z si rego- 
la l’alzo della catapulta per 
alzare o abbassare il tiro. 
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Per lanciare il colpo, preme- 
re la barra degli spazi. Vince 
chi per primo riesce a demo- 
lire completamente il ca- 
stello avversario. 

Troverete che, se vi avvici- 
nate troppo al muro che se- 
para i due castelli, i colpi 
andranno a demolire il mu- 
ro, cosa che favorisce sicu- 
ramente il nemico. Sarà be- 
ne quindi regolare il tiro per 
superare il muro, anche se 
così facendo il tragitto ‘dei 
14 


110 PRINT:PRINT"{8 SPC }'{ GREEN } I { PURPLE } 
1 { 1* SPC } MUOVE VERSO SINISTRA" 

120 PRINT : PRINT" { 7 SPC }{ GREEN } BARRA { PUR P 
LE) {3 SPCJSPARA CON LA CATAPULTA" 

130 PRINT :PRINT :PRINT :PRINT" {7 SPC}(PREM 

1 RETURN PER ' INIZIARE*)" 

IMO GETA$: IFA$OCHR$( 1 3>THEN1 40 

160 PRINT" {CLR} " :CD$=" {HOME} {22 CUR.GIU} 

170 CR$="" :CC$=" {32 CUR.DES}" 

180 CX«M:PX-1:EV*1.9:Bj=0:BY-*0:VY-0:CH-3 
2:C%»0:CY=0:FY=0:C2=32:PB«40:CB=40 
1 90 B $ ® " {SH W) { C BM E) {SH W) " 

200 B 1 $ = " ( 2 SPC } * { SH 1} {CUR.GIU} {5 CUR. 
S I N } " : C 1 $ = " {SH U}* {CUR.GIU} {4 CUR. 
SIN}" 

210 B2 $ = " { 3 SPC } { SH -} {CUR.GIU} {4 CUR. SI 
N } " : C 2 $ = " {SH -} {CUR.GIU} {3 CUR. SIN 
}" 

220 B3$=” {CUR .DES} {2 SPC}{SH 1} {CUR.GIU 
} { 5 CUR .SIN) " :C3$ = " {SH U } { 2 SPC}{CU 
R.GIU} { 4 CUR .SIN}" 

230 C T $ = " { S H Q} {SH Q} {SH Q} {SH Q}":CW 
$="{6 SH Q}":SP$=" {12 SPC}" 

240 PRINT" {HOME} { D . BLUE} { 1 6 SPC}{RVS ON} 
ASSEDIO ": COLORI , 9 , 5 : P R I N T " { HOME } {3 
CUR.GIU} {5 CUR.DES}GIOCATORE" ; 

250 COLORI , 1 5,5: PRINT" { 1 3 SPC } COMPUTER" : 
COLORI ,2,3 

260 PRINT" IHOME} { 1 2 CUR . G I U } " ; CT $ ; SP $ ; " { 

2 SPC) " ;SP$;CT$; 

270 F0R1=1 T06 : PRINTCW$;SP$ ; " { 4 SH Q}";SP 
$ ; C W $ ; : PRINT : NEXT 

280 PRINT, "{9 SPC } {2 SH Q } { C U R . G I U } { 2 CU 
R.S1N}{2 SH Q} {CUR.GIU} {2 CUR.SINH2 
SH Q} {CUR .GIU} {2 CUR.SIN}{2 SH Q}{C 
U R . Gl U } (2 CUR. SIN} {2 SH Q}":C0L0R1,1 
0,2 

290 PRINT" { 39 C BM + } " ; : POKE40 7 1 , 1 02 : POKE 
3047,31 

300 F $ = " " : F 2 $ = " " : B X $ = B 1 $ : C X $ « C 1 $ 

310 GET A $ 

320 COLOR 1 ,10,4:PRINTCD$;CR$;BX$;B$;CD$; 
CC $ ; C X $ ; B$ 

330 IFA$="I"THENPX=PX-1:S0UND2,100,2:CR$ 
=LEFT$(CR$,PX) ; IFPX<1THENPX=1 
340 IFA$="P"THENPX=PX+1 :S0UND2,100,2:CR$ 
= C R $ + " {CUR.DES}" : IFPX>1 4THENPX*1 4:CR 
$=LEFT$ ( CR$ , 1 4) 

350 IFA$«="Q"THENEV = EV + .01 :S0UND2 ,1000,1: 
IFEV>2. 4THENEV=2.4 

360 IFA$*="Z"THENEV = EV- .01 :S0UND2 , 1 000 , 1 : 

I FE V < 1 . 5THENEV= 1 .5 
370 IFRND(0)< .5THEN430 
380 M-INT(RND(0)«3)-1 
390 C X «C X + M : IFCX>1 5THENCX=1 5 : M ® 0 
400 IFCX<4THENCX=4 : M=0 


4 1 0 IFM-1 THENCC$=LEFT$ (CC$, 36-CX) 

4 20 IFM-- 1 THENCC$«CC$+" { CUR . DES 1 " 

430 IFF$="F" THENG0SUB51 0 
4 40 IFF2$="F"THENGOSUB6l 0 : GOTO 4 70 
4 50 F2$="F" : PRINTCD$; CC$; C2$; B$ ; CD$ ; CD$ ; 
CC$;C3$;B$;:FY-1.06+RND(0)*.64:CY«1 

4 60 S0UND2 , 850 , 1 : CX$-C 3$ : F2=37~CX : G0SUB6 

20 

470 I F A $ < > " " ORF$="F" THEN31 0 
480 PRINTCD$; CR$ ; B2$;B$;CD$;CD$;CD$;CR$; 
B3$; B $ ; 

490 VY-EV*.70 71:BY«1:S0UND3. 200 , 1 0 
500 B X $ = B 3 $ •' F S = P X + 2 : F $ = " F " : GOSU B520 : GOTO 
310 

510 P0KE3992+FS-INT(BY)*40+B* f CH 
520 B% = B% + 1 : BY*BY+VY : VY«=VY- . 1 
530 CH=PEEK(3992*FS-INT(BY)*40+B*) : IFCH« 
32THEN590 

540 S0UND1 ,0,0:SOUND3,800, 10 
550 IFCH=42THENPOKE3992+FS“INT(BY ) »40+B* 
,32:F$ = "" :Bj«0:BY = 0:VY*=0:BX$«B1$: GOT 
0700 

560 IFB*>1 6ANDCH032ANDCH0 Ì02TMENP1 -PI ♦ 
1 : COLORI ,3,4: P R I N T " { HOME }{ 5 COR, GIU } 
" ; T A B ( 7 ) ; P 1 

570 POKE3992 + FS-INT( BY ) *40 + B2 » 32: IFB$> 1 6 
ANDCH=8lTHENCB«CB-l 

5 80 IFCB = OTHENSOUNDt , 1 000 , 9 : PRINT" { HOME } 

{7 CUR. GIU}{ 14 SPCJHAI V I NTO ! ! !" ; GOT 
0710 

590 IFCH=32ANDB%*FS<40ANDINT(BY)>0THENP0 
KE3992«-FS“INT(BY)*40*B$»42:RETURN 
60 0 F$ = "" : 8* = 0: BY-0 : VY-0 ; BX$ = BÌ $ : RETURN 
610 P0KE3992+F2-1NT(CY )#4G-C2,C2 
620 C*=C2+1 :CY«CY+FY:FY«FY->1 
630 C2=PEEK(3992*F2-INT(CY)*40-C*)! IFC2« 
32THEN690 

640 S0UND1 , 0 , 0 : S0UND3 » 900 , 20 
650 IFC2 = 42THF.NP0KE3992*F2-1NT(CY )*40-C* 
, 32:F2$= n ":C2«0:CY«0:FY*0:CX$*Cl$:G0 
T0700 

660 IFCt> 1 6ANDC2O32AND02O 1 G2THENP2-P2+ 
1:PRINT"{RED}{ HOME} {5 CUR.GIU}";TAB( 
29) ; P2 

670 P0KE3992+F2-INT(CY)*40-C$,32:IFC*>16 
ANDC2=8l THENPB=PB-1 

680 IFPB=OTHENPRINT" {HOME} {7 CUR.GIU}(10 
SPC } IL COMPUTER VINCE! ! ! w : GOTO? 1 0 
690 IFC2=32ANDC*-F2<0ANDINT(CY)>0THENP0K 
E3992 + F2-INT(CY ) "40-C2 , 42 : RETURN 
700 F 2 $ = " " : C $ = 0 : C Y ■ 0 : F Y •= 0 :CX$ = C1 $: RETURN 
710 PRINT" {HOME} {9 CUR.GIU}{10 SPC}GIOCH 
I ANCORA (S/N)?" 

720 GETA$: IFA$*" "THEN720 
730 IFA$="S”THENRUN 
7 40 IFA$="N"THEN PRINT" { CLR } " : END 
750 G0T0720 


massi scagliati con la cata- 
pulta diventa più lungo e il 
colpo richiede più tempo 
per giungere a segno. Per 
fortuna i movimenti del ne- 
mico sono piuttosto casuali 
e non vi sarà poi così diffici- 
le riuscire vittoriosi nello 
scontro. 


Tratto dall'archivio 
della Jackson 


BIORITMI 


Già nell’ antichità, quando si 
trattava di fenomeni scono- 
sciuti o poco noti, lo scien- 
ziato veniva confuso col 
ciarlatano e spesso villipeso 
o esaltato non a ragion ve- 
duta, quanto piuttosto per 
seguire le credenze del tem- 
po. Oggi i bioritmi sono di 
moda. Ma sarà una scienza 
davvero seria, o è invece, co- 
me tante altre cose, solo una 
moda passeggera? 

Fatto sta che, a quanto pare, 
se ne tiene conto nei circoli 
sportivi più di quanto si im- 
magini e gli enti di certe 
partite di calcio sembrano 
confermare la validità di 
queste teorie. A volte però 
viene da chiedersi se non sia 
tutto frutto di autosugge- 
stione... 
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100 DiMG(2) ,M(2) , A(2) ,M$( 12) 

110 F0RI'1T012:READM$(I) : NEXT 
120 DATA GENNAIO, FEBBRAIO, MARZO, APRILE, MA 
GGIO, GIUGNO 

1 30 DAT A LUGLIO, AGOSTO, SETTEMBRE, OTTOBRE, 
NOVEMBRE .DICEMBRE 

1 40 GOSUB670 :G0SUB720 : PRINT" {CUR .GIU} " : G 
OSUB780 

1 50 COLORO , 2 : COLOR 4 , 2 : PRINT" {CLR} { BLUE} D 
ATA: " G(2)M$(M(2) )A(2) 


Comunque sia, “Bioritmi” è 
un programma serio, per lo 
studio delle proprie capacità 
psico-fisiche in base al ca- 
lendario. 

La teoria dei bioritmi affer- 
ma che nella vita di ognuno 
di noi ci sono tre cicli che 
iniziano dal giorno della na- 
scita, cioè il ciclo fisico (che 
dura 23 giorni), il ciclo emo- 
tivo (28 giorni) e il ciclo in- 
tellettivo (33 giorni). Le no- 
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stre capacità fisiche, emoti- 
ve ed intellettive sono in- 
fluenzate, secondo tale teo- 
ria, dal valore (compreso 
tra +1 e +2) di questi cicli; 
se questo valore è positivo, 
le nostre condizioni saran- 
no tanto più buone quanto 
più esso è prossimo a 1, in 
particolare se è in aumento. 
Il contrario avviene se il va- 
lore è negativo. 

Il programma calcola, in ba- 
se alla data di nascita, i va- 
lori in qualsiasi giorno dei 
cicli bioritmici e la loro, me- 
dia. È possibile visualizzare 
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1 60 
1 70 
1 80 


1 90 
200 

21 0 
220 


230 

240 

250 

260 


270 

280 

290 

300 

310 

320 


330 

340 

350 

360 

370 


380 

390 

400 

410 

420 

430 

440 

450 

460 

4 70 
480 

490 

500 


PRINT" {CUR. GIU} (40 CBM U } " 

FORK* 1 T02 : I FM ( K ) >2THEN200 
F(K)=365*A(K)+G(K)+31*(M(K)-1)+INT(( 
A ( K ) — 1 )/4)-INT( .75*INT((A(K)-1 ) / 1 00 + 
1 )) 

GOT0220 

F(K)=365*A(K)+G(K)+31*(M(K)-1)-INT(. 

4*M(K)+2.3) + INT(A(K)/4) 

F(K)«F(K)-INT(.75*(INT(A(K)/100)*1)) 

NEXT:L=23:MD=0:FORK=1T03:C(K)«SIN(2* 

tt*(F(2)-F(1))/L) : MD = MD + C ( K ) : L = L + 5 :NE 

XT 

PRINT" {PURPLE } C I C L 0 FISIC0{2 SPC}*** 
******** ;K -l :GOSUB500:GOSUB320 
PRINT" {PURPLE}CICLO EM0T1V0{2 SPC}** 
******** tt. : K*>2 : G0SUB500 : G0SUB320 
PRINT" {PURPLE }CICLO INTELLETT I VO { 2 S 
PC } ***** «; : K * 3 : GOSUB500 : G0SUB320 
PRINT" {CUR .GIU }{ BL-GRN }MEDIA DEI CIC 
LI { 2 SPC}******** " ; :K=0:C(0)»MD/3:G 
OSUB500 : GOSUB320 
GOSUB530 

G0SUB5 60 : IFC$*="S"THEN1 40 
IFC$»CHR$( 1 3)THENGOSUB5 80 : GOTO 1 50 
I FC $ = " G" THENGOSU B6 70 : G0SUB780 : G0T01 5 
0 

G0T0280 

T-C ( K ) * 1 9+1 9 : W-INT( (T-INT (T) ) *8 ) : GOS 
UB51 0 : PRINT" {CBM M } "TAB ( 39 ) " { CBM G}" 
; : G0SUB520 

IFC(K)>=0THEN PRINT" {GREEN}"; :GOTO360 
PR I NT" { CBM M } { R VS 0N}{RED}{19 SPC}{2 
0 CUR .SIN} { R VS OFF}" ; 

FORI = 1 TOT : PRINTTAB ( I ) " " ; : NEXT : PRI NT 
"{CUR. SIN} {RVS ON}"; :G0T0380 
I FT< «20THEN3 80 

FORI*20TOT : PRINTTAB( I )" { RVS ON } ";:N 
EXT : PRINT" { RVS OFF}" ; : IFT = 38THENPRIN 
T: RETURN 

PRINTTAB(T+1); : ONW+ 1 G0T0390 , 400 , 4 1 0 , 

420 , 430 , 440 , 460 ,480 

PRINT" " : RETURN 

PRINT" {CBM G} " : RETURN 

PRINT" { CBM H}":RETURN 

PRINT" {CBM J}":RETURN 

PRINT" { CBM K } " : RETURN 

IFTC1 9THENPRINT" { RVS OFF}{CBM L}":RE 
TURN 

PRINT" {RVS ON } { C BM L}":RETURN 

IFT< 1 9THENPRINT" { RVS OFF}{CBM N}":RE 

TURN 

PRINT" {RVS ON } { CBM N}":RETURN 

IFT<1 9THENPRINT" { RVS OFF}{CBM M}":RE 

TURN 

PRINT" {RVS ON } { CBM M } " : RETURN 
PRINTINT(C(K)*100)/100:RETURN 




510 PRINT"{BLUE} (38 CBM @}":RETURN 
520 PRINT" (38 CBM T } { 2 CUR . SU } " : RETURN 
530 PRINT" {ORANGE} {CUR .GIU } {RVS ON } { 8 S 
PC } PREMI <S> PER SMETTERE { 8 SPC}" 

540 PRINT" {RVS ON } { 5 SPC}<RETURN> PER G 
IORNO SEGUENTE {5 SPC}" 

550 PRINT" {RVS ON } { 9 SPC}<G> PER ALTRO 
GIORNO { 9 SPC } {2 CUR .SU}" : RETURN 
560 GETC$ : I FC $=" " TH EN 560 
570 RETURN 

5 80 FG = 0 : M = M( 2 ) : G = G ( 2 ) : I FG ( 2 ) < 28THEN660 
590 LM=M=1 ORM=30RM=50RM=70RM=80RM=1 00RM= 

1 2 

600 IFM*2ANDINT(A(2)/4)*4*A(2)ANDG=28THE 
NG = 2 9 : GOTO 62 0 
610 IFM=2THENG=30 

620 IF(LMANDG = 31 )OR(NOTLMANDG=30)THENFG= 
1 

630 IFFG=0THEN660 

640 G(2)=1:M(2)=M(2)+1:IFM(2)-13THENM(2) 
= 1 : A ( 2 ) = A ( 2 ) + 1 
650 RETURN 

660 G(2)*G(2)+1 iRETURN 

6 70 COLORO , 8 : COLOR 4 ,8:PRINT"{CLR}{D.BLUE 

} { 9 SPC }{ RVS ON } { SH U } { 1 9 SH *}{SH I 
}" 

680 PRINT" {9 SPC } {RVS ON}{SH - } { 1 9 SPC}{ 
SH -}" 

690 PRINT" {9 SPC } { R VS ON}{SH -}{2 SPC}B 
I0RITMI{2 SPC} {SH - } " 

700 PRINT" {9 SPC} {RVS 0N}{SH -}{19 SPC } { 
SH -}" 

710 PRINT" {9 SPC } {RVS ON}{SH J > { 1 9 SH *} 
{SH K > { 3 CUR .GIU }": RETURN 
720 IFC$O"S"THEN770 

730 PRINT" {BLUE} { 4 CUR.GIU}{5 SPC}NUOVA 
DATA DI NASCITA{2 SPC}(S/N)?" 

740 GETC$ : I FC $= " "THEN7 40 
750 IFC$*"S" THENRUN 
760 PRINT" { CLR END 

770 PRINT" { BLUE} { RVS ON } DAT A DI NASCITA: 

" : I = 1 : G0SUB790 : RETURN 
780 PRINT" { BLUE} { RVS ON } DATA DEI BIORITM 
I : " : 1*2: GOSUB7 90 : RETURN 
790 INPUT" {CUR .GIU JGIORNO ( 1 - 3 1 ) " ; GG $ : G ( 
I) = VAL(GG$):IFG(I)>0ANDG(IX32THEN81 
0 

800 PRINT" {CUR .SU} { 30 SPC}{2 CUR.SU}":GO 
T0790 

810 INPUT "MESE (1-12)";MM$:M(I)=VAL(MM$) 
: IFM(I )>0ANDM(I )<1 3THEN830 
820 PRINT" {CUR. SU} {30 SPC } { CUR . SU } " : GOTO 
810 

830 INPUT "ANNO ( ES . 1 98 5 ) " ; A A $ : A ( I ) = V A L ( 

A A $ ) : IFA(I)>999ANDA(I )<1 E4THENRETURN 
840 PRINT" {CUR.SU} {30 SPC } { CU R . SU } " : GOTO 
830 


consecutivamente i dati di 
più giorni successivi per 
confrontare i valori e stabi- 
lire quidi se un dato ciclo è 
crescente o decrescente in 
un certo giorno. I quattro 
valori, mostrati sul video da 
istogrammi orizzontali, ver- 
di nei giorni “alti” e rossi 
nei giorni “bassi”, aiutano 
ad analizzare la situazione 
con un semplice colpo d’oc- 
chio. 


Tratto da “Paper Soft” 
n. 18/’85 
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DISEGNO 


AMBIENTI 


Il programma PIANTA per- 
mette di tracciare la pianta 
di uno o più locali, di prepa- 
rare una piccola biblioteca 
di figure elementari (qua- 
drati, rombi, poligoni vari, 
cerchi, ellissi) e di posizio- 
nare queste figure sulla 
piantina tracciata sullo 
schermo. Quando si sceglie 
una figura due crocette lam- 
peggianti ne indicano Toc- 
cupazione massima. Queste 
crocette possono poi essere 
spostate nelle quattro dire- 
zioni per mezzo dei tasti 
cursore (quelli con le frec- 
ce) e poi, premendo P (pro- 
va), si traccia la figura. Se 
questa non è troppo grande, 
premendo poi il tasto C 
(cancella) la si può cancel- 
lare ripristinando quanto 
c’era prima, per poi sposta- 
re ancora le crocette, o cam- 
biare figura. 

Subito dopo l’avvio, si pre- 
sentano le domande relative 
alle misure massime del di- 
segni (larghezza e profondi- 
tà dell’area). I valori po- 
tranno essere dati nelle uni- 
tà di misura che si preferi- 
sce, di solito in centimetri. È 
meglio largheggiare un poco 
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10 DIMLX ( 1 5 » 1 ) »MX ( 5 » 2 ) ,M$(5):GRAPHIC0,1 
20 INPUT "LARGH. AREA ";F:INPUT" PROF. ";E:PR 
INT : INPUT" INIZIO { C BM Q } " ; D : I N P UT " { C B 
M R } " ; B 

30 PR1NT : PRINT"DIR . X:{CBM W}- { C BM Q} + 

Y : { C BM E}- { CBM R}+":PRINT 
40 FORI*0TO1 5 : INPUT "SP0ST X " ; X : I N PUT "SPO 
ST Y"; Y:1FX«OANDY=OTHEN60 
50 L*(I,0)«X:Lf(I,1)«Y:PRINT:NEXTI 
60 SCNCLR : PR INT" FI CURE" : FORI-0TO5 : PRINT : 

A $ = " " : INPUT "NOME" ;A$: IFA$*""THEN1 10 
70 M$( I )«A$: PRINT: PRINT" 1 . QU A D R . 2 . POL I G . 
3.CERCH . " ; : INPUTG: IFG*2THENINPUT"LAT I 
" ; R 

80 M%(I,0)-36O:IFG*2THENM*(l t O)«R 
90 IFG-1THENM? (I ,0)=1 

100 INPUT" ASSE X" ; I , 1 ): INPUT" ASSE Y"; 
M* ( I , 2 ) : NEXTI 

110 P=31 9/F : I FE * P <= 1 59THEN1 30 
120 P = 1 5 9/E 

130 GRAPHIC2, 1 : IFF*P<31 9THENC* ( 31 9“F*P )/ 
2 : E LSEC = 0 

140 SSHAPEA$,5,5»9,9:DRAW,5»5T09»9,5,9T0 
9,5:SSHAPEE$,5,5,9,9:GSHAPEA$,5,5 
150 LOCATED*P + C ,B*P:F0RI-DTQ1 5 : R«L%(I ,0) 


ffHt Uf\’> fnuoi « rSAftOMA! « 

« .. ir r 



dando queste dimensioni 
massime. Dopo aver immes- 
so questi valori, bisogna da- 
re i valori relativi alla tra- 
slazione in senso orizzonta- 
le (verso destra) e verticale 
(verso il basso) del punto 
iniziale del disegno. Poi si 
può cominciare a tracciare 
i segmenti che compongono 
la pianta del locale. L’origi- 
ne del disegno è in alto a si- 


nistra sullo schermo. Si da- 
rà per ogni segmento sia lo 
spostamento sull’asse X, 
che quello sull’asse Y, te- 
nendo presente che lo spo- 
stamento è positivo se va a 
destra o in basso, negativo 
se va a sinistra o in alto. In- 
trodotta l’ultima coppia di 
valori X e Y, immettere uno 
zero sia per X, che per Y. 

Si passa così alla creazione 


delle figure da usare nel di- 
segno. Ad ogni figura occor- 
re dare un nome (sedia, ta- 
volo, ecc.), scegliere il tipo 
di forma (quadrilatero, poli- 
gono, cerchio) e le misure 
degli assi X e Y (i lati per un 
quadrato). Per proseguire 
quando si sono definite le fi- 
gure, battere RETURN senza 
immettere niente. Sono am- 
messe sei figure diverse. 
Viene quindi tracciata la 
pianta del locale. Diamo il 
nome di una delle figure da 
rappresentare e sistemia- 
mola dove ci sembra conve- 
niente. Se non va, cancellare 
e riprovare in un altro po- 
sto. Si continua con altre co- 
pie della figura, o con altre 
figure. Per finire, premere 
ancora una volta RETURN. 


Tratto da BIT 
n. 64/Settembre 1985 
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:S«LJ6(I , 1 ) : IFR = OANDS*=OTHEN1 70 
160 DRAWT0+R*P,+S*P:NEXT1 

170 A$<=" " : INPUT " FIGURA" ; A$ : I FA $ «= tf " TH E NE N 
D 

180 F0RI»0T05: I F M $ ( I )=A$THEN200 
190 NEXT I : GOTO 1 7 0 

200 R-360/MX(I,0):S«M$(I,1)*P:T=M*(I f 2)* 
P:PRlNT"+«-PC":X=157:Y = 7 7 
210 SSHAPEF$,X,Y,X+4,Y+4: GSHAPEE$ ,X , Y : SS 
HAPEH$,X+S,Y+T,X+S+4,Y+T+4 
220 GSHAPEE$,X+S,Y+T:GSHAPEF$,X,Y:GSHAPE 
H$,X+S,Y+T:GETA$:IFA$=" " THEN210 
230 A»ASC(A$):IFA=157THENX=X-2 
240 IFA-29THENX-X+2 
280 I FA * 1 45THENY*Y--2 
260 IFA-1 7THENY=Y+2 
270 IFA-1 3THEN1 70 

280 T R A P 3 3 0 : I F A = 80 TH ENG$ = " " :G=X+2:C=Y*2: 

SSHAPEG$,G,C , G + S , C + T : GOTO 31 0 
290 1FA = 67THENGSHAPEG$ , X + 2 , Y + 2 
300 GOT0210 

310 IFR=360THENB0X,G,C,G+S,C+T:ELSECIRCL 
E,G+(S/2) ,C+(T/2),S/2,T/2, , , ,R 
320 G0T0210 

T R A P : G0T031 0 



FUNZIONI 

TRIDIMENSIONALI 
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Ecco un programma breve, 
ma molto potente. Dà dei ri- 
sultati molto spettacolari 
nel disegnare delle funzio- 
ni di due variabili reali in 
modo tridimensionale. Dise- 
gna funzioni definite sulla 
parte di piano-2<X<2, 
-2<Y<2 che ammettano 
valori tra -1 e 1. Il pro- 
gramma disegna la funzione 
partendo dall’osservatore e 
procedendo verso l’interno 
del monitor. Per sapere se il 
punto che deve disegnare è 


nascosto dal disegno prece- 
dentemente fatto, controlla 
se il punto non è compreso 
tra il punto più alto e il pun- 
to più basso di una stessa 
colonna di punti. 

Il Commodore 16 calcola il 
valore della funzione tridi- 
mensionale dato un punto 
del piano: tale valore viene 
posto nella variabile Z3 e le 
coordinate del punto sono 
X3 e Y3. Queste X3, Y3 e Z3 
sono le coordinate di un 
punto nello spazio. Il calco- 


latore dovrà ora disegnare 
un punto su un piano (il vi- 
deo) in modo che dia l’im- 
pressione della profondità. 
Per far ciò usa l’assonome- 
tria, calcola cioè la coordi- 
nata verticale del piano 
(Y2) come Z3+X3/2 e la 
coordinata orizzontale del 
piano (X2) come Y2+X3/2. 
Oltre alla funzione 
Z3=SIN(X3*Y3), già predi- 
sposta, provare a far trac- 
ciare altre funzioni, sosti- 
tuendo alla linea 500 le se- 
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guenti linee: 
Z3=SIN(X3*2) 
Z3=SIN(X3*X3-»-Y3*Y3) 
Z3=(X3*X3+Y3*Y3)* 
(X3*X3+Y3*Y3)/32- 1 


Tratto dal libro 
“Commodore 16 
sempre di più" 
24 


0 REM 3DP 

10 POKE56 , 2 1 : P0KE55 , 1 28:CLR:TRAP1 80 
20 FORI*0TO31 9 : P0KE5 504+1 , 0 : P0KE5 824+1 , 1 
99 : N EXT 

30 COLORO, 1 :C0L0R1 ,2, 7:COLOR4, 1 
40 GRAPHICS , 1 

50 X3 = -2: F0RY3--2T02STEP .02 : G0SUB500 : NEX 
T 

60 SP= . 3 

70 F0RX3*”2T02STEP.02;Y3 8B ”2 
80 GOSUB500 : Y3-2: G0SUB500 
90 RX = X3-INT(X3/SP.) # SP 
100 F0RY3--2+RXT02STEPSP 
1 1 0 G0SUB50 0 
120 NEXTY3 

130 F0RY3=2-RXT0-2STEP-SP 

140 GOSUB500 

150 NEXTY3:NEXTX3 

1 60 X3 = 2 :F0RY3«-2T02STEP . 02 : G0SUB500 : NEX 
T 

170 GETKE YA$ 

180 GRAPHICO : END 
500 Z3=SIN(X3*Y3) 

510 X2=l60+(Y3 + X3/2)*49:Y2«100+(Z3+X3/2) 
*49 

520 IFY2>PEEK(5504+X2)THENPOKE5504+X2,Y2 
: G0T05 50 

5 30 IFY2<PEEK( 582 4 + X 2 ) TH E N POKE582 4 + X 2 , Y2 
: G0T05 60 
540 RETURN 

550 IFY2<PEEK(5824+X2)THENP0KE6824+X2,Y2 
560 DRAW , X2 , 1 99- Y2 : RETURN 


SUPER SPREADSHEET 


È il classico tabellone elet- 
tronico. Questo programma 
consente di avere a disposi- 
zione una matrice su cui in- 
serire dei dati, numerici ed 
alfanumerici (label), ed ela- 
borare delle formule. 

Il video è una finestra del ta- 
bellone nella quale vengono 
visualizzate 17 righe per 3 
colonne numeriche ed una 


quarta colonna sul lato sini- 
stro con tre righe sul lato 
superiore contenenti le la- 
bel alfanumeriche. 

La prima casella in alto a si- 
nistra viene invece utilizza- 
ta per ricordare con quale 
comando si sta operando, 
mentre le ultime quattro ri- 
ghe dello schermo sono adi- 
bite ai messaggi del sistema 


e all'input dei dati. 

Come utilizzare il 
programma 

Le dimensioni del tabellone 
saranno al massimo 50 ri- 
ghe per 15 colonne, e al mi- 
nimo 17 righe per 3 colon- 
ne. Dopo il dimensionamen- 
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to, appariranno sullo scher- 
mo le prime 17 righe e le 
prime 3 colonne, mentre sul 
lato inferiore compaiono le 
iniziali dei comandi “I-D-C- 
G-H-S-B-E”, ai quali si acce- 
de premendo la lettera cor- 
rispondente. 

Le iniziali riportate corri- 
spondono ai seguenti co- 
mandi: 

H = Help. Visualizza sulle 
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ultime righe del video tutti i 
comandi disponibili. Preme- 
re un tasto qualsiasi per tor- 
nare al ciclo principale. 

B = Blank. Consente di vuo- 
tare una casella numerica 
del tabellone. È possibile 
usare il comando anche per 
caselle non visualizzate sul- 
la finestra del video. 

I = Insert. Serve ad inserire 
i dati numerici o alfanume- 
rici, oltre alle formule per i 
calcoli. Dopo aver premuto 
il tasto I, apparirà in fondo 
allo schermo la scritta M Nu- 
mero-Label-Pormula". Pre- 
mere l’iniziale di ciò che si 
intende inserire. 

Per non incorrere in errori 
è necessario capire il modo 
in cui vengono memorizzati 
i dati numerici del tabello- 
ne. Questi vengono archivia- 
ti nella variabile A (numero 
righe, numero colonne). La 
casella 00A è rappresentata 
dalla variabile A(00,0); ,la 
01A dalla A(01,0); la 00B 
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100 GOTO 1 000 

500 A(03,0)-A(00,0)-A(01 ,0) : 


: RETURN 

1 00 0 COLORO, 1 3, 5: COLOR 4 , 1 3 , 5 : DIMR$ ( 200 ) 
1010 PRINT" {CLR)":CHAR,9, 1 , " { BLACK } SPRE A 
DSHEET ANALYSIS" 

1020 PRINT: INPUT” {CUR.GIU} {D.BLUEjDEVI C 
ARICARE UN FILE (S/N)";Q$ 

1030 IFQ$*"S"THEN1 0000 

1 040 INPUT " {2 CUR.GIU} { BROWN } NUMERO COLO 
NNE ( D A ( 2 SPC } 3 A 15):";NC 
1050 IFNC<30RNC>1 5THEN1 040 

1060 input" {cur .giu Inumerò righe(3 spch 

DA 17 A 50) : " ; NR 
1070 IFNR<1 70RNR>50THEN1 060 
1080 NR = NR-1 : NC-NC- 1 : R»0 

1 090 DIMA(NR,NC) ,X$(NR) , Y $ ( NC ) 

1110 FORI*=OTONR : X$( I)-" l 8 SPC ) " : FOR J - OTO 
NC : A( I , J )-1 E36 : NEXTJ , I 
1120 FOR1*OTONC:Y$(I)=”{8 SPC}":NEXT 

2 000 COLORI , 1 : PRINT" { CLR I " : FORI = ITO 38 : PO 

KE 3072 + 1,67: POKEjl 52 + 1 , 67 : POKE 3872 + 
I ,67:NEXT 

2010 FORI s =40T0760STEP40 : POKE 307 2 + 1 , 66 : PO 
KE3081 +1 , 66 : POKE3084 + I ,66 
20 20 POKE 309 3 + I ,66: POKE 3 1 02+1 ,66: POKE 31 1 
1 + I , 6 6 : N EXT 

2030 POKE3072, 1 12:POKE308l ,114:P0KE3084, 

1 1 4 : POKE 309 3, 114:P0KE3102,114:P0KE3 
111,110 

2040 POKE3152,107:POKE3161,91: POKE 31 64,9 
1 : POKE 317 3 r 91 : POKE 3 182,91 :POKE3191 , 

1 1 5 

20 50 POKE 387 2 , 109:POKE3881 ,113:POKE3884, 
1 1 3 : POKE 38 9 3 , 1 1 3: POKE 3 90 2, 1 1 3 : P0KE3 
911,125 

2060 C H A R , 1 0 , 1 ,"{RVS ON } LB " : C H A R , 2 , 2 , " LA 
BELtRVS OFF}" 

2070 GOSUB4000 

3000 M$="IDCHGBS{CUR.SIN} {CUR.DES} {CUR.S 
U}{CUR.GIU}":A$«="": DOU NT I L A $= " E " 
3010 CHAR,2,22," { YELLOWISPREADSHEET ANAL 
YSIS - SYSTEM READY" 

3020 CH A R , 1 , 23, "PREMI : I-D-C-H-G-B-S-E-(T 
ASTI CURSORE)" 

3030 TRAP3800:GETKEYA$ : Z« INSTR ( M$ , A$ ) : GO 
SUB5000 

3040 IFZ<8THEN 3080 

3050 X = X- ( A $ * " {CUR . SU }"ANDX+16<NR)+(A$=" 
ICUR .GIU) "ANDX>0) 

30 60 Y = Y- (A$ = " (CUR .SIN } "ANDY + 2<NC) + (A$ = " 
{CUR . DES} "ANDY>0 ) 

3070 GOSUB4000 : GOTO30 1 0 

3080 ONZGOSUB8000.9000 , 1 6000 , 6000 ,14000, 
15000,7000 




3090 LOOP 

3100 COLORO, 1 : COLORA, 1 : COLORI ,3: PRINT" {C 
LR}" 

3110 CHAR ,9, 10,” {REDJSPREADSHEET ANALYSI 
S" 

3120 CHAR, 12, 12, "SYSTEM CLOSED" 

3130 END 

3800 GOSUB5000:CHAR,0,22," " : PRINTERR$ ( ER 
) , EL 

3810 G0SUB1 201 0 : RÉSUMÉ 3000 
4 000 PRINT " {BLACK} ":CHAR, 13,1 , Y $ ( Y ) : CH A R 
,22,1 , Y $ ( Y + 1 ): CHAR, 31 »1 ,Y$(Y + 2) 

4010 PRINT" {BLACK}" :CHAR, 1 3» 1 , Y $ ( Y ) :CHAR 
,22,1 , Y $ ( Y + 1 ) : CH A R , 3 1 ,1 , Y$(Y+2) 

4 020 P0KE31 72 , (Y+1 29 ) : P0KE31 81 , ( Y + 1 30) : P 
OKE 3 1 90 , ( Y+ 1 31 ) 

4 0 30 F0R1-0T01 6: CHAR , 1,3+1, " { BLACK } " + X$ ( 
X ♦ I ) 

4040 Z$-STR$ ( X+ I ) :IFLEN(Z$) *2THEN Z$ = " 0 " + 
R I GHT$ ( Z$ , 1 ) 

4050 CHAR , 1 0 , 3+1 ,"{ RVS ON } " + R I GHT $ ( Z$ , 2 ) 
+ " { R V S OFF} " : W=Y : G0SUB5500 
4060 CHAR, 13,3+1, Z$:W=Y+1 :G0SUB5500 
4 070 CHAR, 22, 3 + 1 , Z$ : W« Y + 2 : G0SUB5500 
4080 CHAR , 31 , 3* I , Z$ : NEXT : RETURN 
5000 CHAR, 1 , 1 ," {8 SPC}" 

50 20 FORN-391 2T0 4 072 : POKEN , 32 : NEXT : RETUR 
N 

5500 Z$»STR$(ABS(INT(A(X+I,W) ) ) ) 

5510 IFLEN(Z$)<8THENZ$=" " + Z$ : G0T055 1 0 
5520 Z$=RIGHT$(Z$,8) 

5530 I F A ( X + 1 , W ) > 1 E35THENZ$ = " {8 SPC}" 

5540 I F A { X + 1 ,W)<0THENZ$ = " {RED}" + Z$ : ELSEZ 
$*" { BLACK} "+Z$ 

5550 RETURN 

6000 CHAR , 1 , 1 ,"{ YELLOW} { RVS ON}**HELP**{ 
RVS OFF}" 

6010 CHAR, 0, 21 , "{RVS ON } COMANDI { RVS OFF} 

: {RVS ON } I { R VS OFF } NSERT- { RVS ON}D 
(RVS OFF }ELETE- { RVS ON}C{RVS OFF}OM 
PUTE-1RVS ON } H { R VS OFF}ELP"{RVS ON} 
S { R VS 0 F F ) A V E " 

6020 CHAR , 0, 22, " { RVS ON}G{RVS OFF}OTO-{R 
VS ON } B { R VS OFF } LANK- { RVS ON}E{RVS 
OFF }ND- ( {RVS ON } MUO V I COI TASTI CUR 
SORE { RVS OFF} )" 

6030 CHAR ,0,24 , "PREMI UN TASTO PER CONTI 
NUARE" 

6040 GETKEYA$ : G0T05000 

7000 INPUT" { CLR } { 2 CU R . GIU }{ BLACK } NOME D 
EL FILE DA REGISTRARE F$ 

7010 INPUT" {CUR .GIUJIL NOME E’ ESATTO (S 
/N )" ; Q $ 

7020 IFQ$O"S"THEN701 0 


dalla A(00,1) e così di segui- 
to sino alla A( numero righe 
-1, numero colonne -1). Le 
formule vanno inserite uti- 
lizzando, quale identificato- 
re della casella, la rispettiva 
variabile della matrice, so- 
stituendo alla virgola l’apo- 
strofo. Ad esempio, se vo- 
gliamo che la casella 03A 
sia uguale alla somma della 
OOA più la 01A, dovremo in- 
serire la seguente formula: 
”A(03’0)= 

A(00’0)+A(01’0)”. 

Altro esempio: se la casella 
OOB deve contenere la per- 
centuale della OOA rispetto 
alla 04A, dovremo inserire 
”A( 00’ 1 ) = A( 00’0)/A( 04’0 )* 
100 ”. 

Si ricorda che la lettera A 
della prima colonna corri- 
sponde allo 0, la B all’1 e via 
di seguito. 

Possono essere utilizzate le 
quattro operazioni ( + -*/) e 
l’elevazione a potenza. La 
lunghezza massima di una 
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formula è di 60 caratteri. 

D = Delete. Consente di az- 
zerare una casella del tabel- 
lone. 

G = Goto. Sposta la finestra 
facendo apparire nella pri- 
ma casella numerica la cella 
indicata nella richiesta. 
Riempie comunque comple- 
tamente il video spostando 
eventualmente la casella ri- 
chiesta. 

C = Compute. Manda in ese- 
cuzione le formule contenu- 
te nella matrice R$(R) ed 
aggiorna il tabellone. 

S = Save. Consente di archi- 
viare i dati del tabellone per 
poterli utilizzare successi- 
vamente. Il caricamento dei 
dati viene eseguito nella fa- 
se iniziale del programma 
previa conferma. 

E = End. Fine del lavoro. 

I tasti cursore spostano la 
finestra/video di una casella 
nella direzione del tasto cur- 
sore premuto. 
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7030 

7040 

7050 
7060 
70 7 0 
7080 
7090 

7100 

7110 

8000 

8020 

8030 


8035 

8040 

8050 

8060 

8070 

8075 

8080 

8090 
8100 
811 0 
8120 
81 30 

81 40 
8150 

81 60 
8170 

8200 

8210 

8220 


8240 

8250 

8260 

8270 


0PEN1 , 1 ,2, F$: PRINT #1 ,NC: PRINT# 1 ,NR: 
PRINTlM , R 

FORI=OTONR:FORJ=OTONC: PR I NT # 1 , A(I , J 
) : NEXT J , I 

FOR 1 «OTON R : PRINT#1,X$(I):NEXT 
FURI=0T0NC: PR 1 NT # 1 ,Y$(l):NEXT 
FORICI TOR : PRINT# 1 ,R$(I):NEXT 
PRINT/M : CLOSE 1 

INPUT"{3 CUR .GIU) { REDJCONTINUI (S/N 
) : " ; Q$ 

IFQ$="S"THEN2000 

PRINT" { C L R } " : G0T03 1 00 

CHAR,1 ,1 ."{WHITBHRVS ON } * INSERT* { R 

VS OFF}" 

Q $ = " " : DOUNTILQ$’="XXX" 

CHAR, 0,21 ," {WHITE} (RVS ON}L{RVS OFF 

}ABEL-{RVS ON } N { R VS OFF } UMERO- { R VS 

ON } F{ RVS OFF } OR MULA- (XXX «ESCE )" : INP 

UTQ$ : GOSUB5020 

IFQ$O"N"THEN8075 

CHAR, 0,21 ."CASELLA : INPUTC$ 

G0SUB1 1000: I F I N = 1 TH E NGOSU B 1 2000 : GOT 
08030 

CHAR ,0,22, "VALORE: " : INPUTC: A (XI , Y1 ) 
=C 

G0SUB1 3000 
IFQ$O"L"THEN8200 

CHAR, 0, 21 , "CASELLA DEL LABEL:":INPU 
TP$ 

IFASC (P$)>64THEN8l 50 
P = V AL ( P$ ) 

IFP<00RP>NRTHENG0SUB1 2000 : GOTO 80 30 
GOSUB8500 

X$( P)«LEFT$ (P$ , 8) : IFP>-XANDP<X+1 7TH 
ENCHAR,1 ,3 + P“X," { BLACK} " + X$( P ) 
GOT08200 

P = ASC ( P$ ) “ 65 : IFP<OORP>NCTHENGOSUB1 2 
000: GOTO8030 

GOSUB8500 :Y$(P)»LEFT$(P$ ,8) 

IFP> = YANDP< Y + 3THENCHAR ,13+9*(P-Y),1 
{BLACK} "+Y$(P) 

DOWHILEy$«"F":IFFRE(0)>150THEN8240 
CHAR , 7 ,22 l FLASH ON } MAN C A SPAZIO I 
N MEMORI A { FLASH OFF}" 

PRINT" { 1 3 CUR .DESjMODIFICA UNA FORM 
ULA GIÀ' INSERITA" :G0SUB1 2010: Q$="X 
XX" : EXIT 

CHAR, 0,21 ," (RVS ON}M(RVS OFFJODIFIC 
A 0 {RVS ON } N { R VS OFFjUOVA FORMULA: 
":INPUTP$:IFP$="M"THEN8280 
GOSUB5020:CHAR,0,21 ."NUOVA FORMULA: 
" : INPUTZ$ 

I FLEN ( Z$ ) >60THENG0SUB5020 : PRINT" {FL 
ASH ON } TROPPO LUNGA! {FLASH OFF}":GO 
SUBÌ 201 0 : GOT 08250 
R = R+ 1 : R$(R )*Z$ : EXIT 
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8280 IFR=0THENEXIT 
8285 F0RK-1T0R 

8290 GOSU B5020 : CHAR, 0, 23, R$ U ): CHAR, 0,21 
, " ( R V S ON } D { R VS OFF } ELETE- {RVS ON}P 
{RVS OFF } ROSSIMA- { RVS ON}M{RVS OFF} 
ODIFICA" 

8295 GETKEYP$ : I F P $ = " P " THEN 8 3 60 

8300 IFP$<>"D"THEN8330 

8310 FOR J = KTOR- 1 :R$(J)=R$(J + 1):NEXT 

8320 R$(R : R=R-1 : G0T08370 

8330 I N P UT Z $ 

8340 IFLEN ( Z$ ) >60THENGOSUB5020 : PRINT" { FL 
ASH ON } TROPPO LUNGA! {FLASH 0FF}":G0 
SUBÌ 201 0 : G0T082 90 
8350 R $ ( K ) * Z $ 

8360 NEXTK 

8370 GOSUB50 20 :EXIT : LOOP : GOSUB50 20 : LOOP: 
G0T05000 

8500 INPUT" LABEL : " ; P$ 

8510 IFLEN(P$)<8THENP$=P$+" ":G0T085i0 
8520 RETURN 

9000 CHAR , 1 , 1 ,” {D . BLUE} {RVS ON } *DELETE* { 
RVS OFF}" :CHAR, 0,21 ."CASELLA DA ELI 
MINARE ( RI GA/COL-XXX=FI NE ) " 

9010 I N PUTC $ : I FC $*" XXX " THE N 5000 
90 20 G0SUB1 1 000 : 1 FI N* 1 THENGOSUB 1 2000 : GOT 
09000 

90 30 A (XI , Y1 ) *0 : G0SUB5020 : G0SUB1 3000 : GOT 
09000 

10000 INPUT" {CUR.GIUJNOME DEL FILE DA CA 
RICARE:";F$ 

10010 INPUT" {CUR .GIU } I L NOME E' ESATTO ( 
S/N )" ; Q$ 

10020 IFQ$<>"S"THEN1 001 0 

10030 0PEN1 , 1 ,0 ,F$ : INPUT#1 ,NC : INPUT/M ,NR 
: INPUT# 1 , R : DIMA (NR , NC ) , X$(NR ) , Y$(N 
C) 

10040 FORI=OTONR :FORJ=OTONC: INPUT #1 ,A(1, 
J ) : NEXT J , I 

1 0050 FORI-OTONR: INPUT #1 , X$ ( I ) : I FX$ ( I ) 
"THENX$(I)*"{8 SPC}" 

10055 NEXT 

100 60 FORI-OTONC: INPUT 4M , Y $ ( I ) : I F Y $ ( I ) = " 
"THENY$( I )«" {8 SPC}" 

10065 NEXT 

1 0070 FORI* 1 TOR :INPUT#1,R$(I):NEXT 
10080 CL0SE1 :GOT02000 

1 1000 XT-VAL(LEFT$ |I 'C$,2) ) : Y1=ASC(RIGHT$( 
C$,1) )-65: IN*0 

11010 IFX1 <00RX1 >NR0RY1 <OORY1 >NCTHENIN*1 
1 1 020 RETURN 

12000 CHAR, 0,24," { BLAC K } CASELLA INESISTE 
NTE ! ! ! " 


12010 FORI* 1 T01 000 : NEXT :G0T05020 
130 00 I FX 1 < XORX 1 >X+ 1 600RY1 < YOR Y 1 > Y + 2THEN 
RETURN 


Avvertenze 

Le caselle della finestra/vi- 
deo sono formate da otto ca- 
ratteri, e pertanto, sia in fa- 
se di inserimento (Label), 
che in quella di stampa (La- 
bel e Numeri), il sistema ne 
controlla la lunghezza. Le 
Label vengono ridotte, men- 
tre per i dati numerici, pur 
mantenendo inalterato il 
valore, vengono visualizzate 
solo otto cifre intere. Esem- 
pio: se si inserisce 1,35 il si- 
stema visualizzerà solamen- 
te l’I; se invece si inserisce 
123456789 si vedranno so- 
lamente le ultime otto cifre, 
cioè 23456789. 

I numeri sono visualizzati 
in nero se positivi e in rosso 
se negativi. 

Per tornare al menu da un 
qualsiasi comando, basta in- 
serire XXX alla richiesta 
posta dal comando stesso. 

Le formule vengono elabora- 
te in ordine al loro inseri- 
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mento. Per variare l’ordine 
di esecuzione di una formu- 
la, usare il comando Insert, 
opzione Modifica Formula. 
Nel caso in cui il program- 
ma dovesse bloccarsi per un 
errore, premere il tasto Stop 
due volte consecutivamente 
e poi immettere in modo di- 
retto l’istruzione GOTO 
2000 per farlo ripartire 
mantenendo inalterati i dati 
presenti. 

Tratto da Personal Software 
n. 29/Giugno 1985 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola il 
10 Dicembre 
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1 3020 Z$=STR$(ABS(INT(A(X1 , Y1 ) ) ) ) 

1 3030 IFLEN(Z$K8THENZ$ = " " + Z$ : GOTOI 3030 
1 3035 Z$ = RI GHT $ ( Z$ v 8 ) 

13040 IFA(X1 ,Y1 )<0THENZ$="{ RED }"+Z$: ELSE 
Z$ = " {BLACK} " + Z$ 

1 3050 IFA(X1 , Y 1 )>1 E35THENZ$=" {8 SPC}" 

1 30 60 CHAR, 1 3 + 9*(Y1-Y) ,3+X1-X,LEFT$(Z$,9 

) 

13070 RETURN 

14000 CHAR , 1 , 1 , " { YELLOW} { RVS ON}**GOTO** 
{ R VS OFF}" 

14010 CHAR, 0,21 NUOVA POS I Z I ON E ( R I G A / CO 
L-XXX = ESCE ) : " 

14020 INPUTC$ : IFC$*"XXX" THEN5000 
1 404 0 G0SUB1 1000: IFIN-1 THENGOSUB1 2000 : GO 
T01 4000 

14050 IFX1 +16>NRTHENX1 «NR ♦ 1 6 
1 4060 IFY1 +2>NCTHENY1 *NCt2 
1 4070 X-X1 : Y* Y 1 : GOSUB5000 : G0T04000 
15000 CHAR,1 ,1 {GREEN} {RVS ON}**BLANK*{ 
RVS OFF}" 

15020 CHAR , 0 ,21 , "CASELLA DA VUOTARE (RIG 
A/COL~XXX = ESCE) : " 

1 50 30 INPUTC$ : I FC $= " XXX " THEN5000 
1 5040 GOSUB1 1 000 : I F I N - 1 THE NGOSUB1 2000 : GO 
T01 5000 

150 50 A ( X 1 , Y 1 ) « 1 E 36 :GOSUB50 20 :GOSUB1 30 00 
:G0T01 5000 

1 6000 CHAR, 1 , 1 ," {RED} {RVS ON } COMPUTE * { R V 
S OFF}" 

16010 TRAP 1 6500 

16020 IFR=OTHENCHAR , 7 , 22 , " { FLASH ONlNESS 
UNA FORMULA PRESENTE !{ FLASH OFF}": 
GOTOI 6300 

1 6030 FORI» 1 TOR : CHAR , 5, 22, "ATTENDI STO E 
LABORANDO I DATI" 

1 6040 FOR J = 1 TOLEN (R$(I ) ) 

16050 K=ASC(MID$(R$(I) ,J)) 

16060 IFK=61THENK-178 
16070 IFK=43THENK«1 70 
16080 IFK«45THENK=1 71 
16090 IFK=42THENK-1 72 
16100 IFK=47THENK«1 73 
16110 IFK=94THENK«1 74 
16120 I F K* 39TH ENK = 4 4 
16130 POKE4 1 1 0 + J , K : NEXT 

16140 FOR J *LEN ( R $ ( I ) ) ♦ 1 T06 1 : POKE 4 1 1 0 + J , 5 
8: NEXT 

16170 G0SUB500 
16180 NEXTI 

16190 GOSUB4000 : GOT05000 
1 6300 F0RI = 0T01 000 : NEXT : G0T05000 
16500 GOSUB5020 :CHAR , 5,22 ," {FLASH ON}FOR 
MULA N : P R I NT R " E R R A T A- C ONTRO L LA " 
16510 G0SUB1 201 0 : RESUME1 61 90 
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C’^r tutti 


che unisce le caratteristiche di 
un manuale di riferimento a 
quelle di un buon testo didatti- 
co di programmazione 

cod. 417D Pag. 216 
Lire 20.500 


Rita Bonetti. 

Luciano Pazzucconi, 

Fabio Racchi 
COMMODORE 16. 

SEMPRE D' PIÙ 
Un libro sul Commodore 16 per 
approfondire le conoscenze 
sulla macchina e sul suo BA- 
SIC 

cod. 427B Pag. 336 
Lire 35.000 Con cassetta 


David Lawrence 

TECNICHE 

DI PROGRAMMAZIONE 
SUL COMMODORE 64 

L'arte della buona program- 
mazine alla portata di chiun- 
que possegga un Commodore 
64. 

cod. 575D Pag. 176 
Lire 16.500 

Daria Gianni. Carlo Tognoni 

MSX: IL BASIC 

Il primo libro sul BASIC MSX. 


r i 

ritagliare io fotocopiare) e spedire in o-sta chiusa a 
GRUPPO EDITORIALE JACKSON - Divisane libri Via Roselln 12 • 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 

VOGLIATE SPEDIRMI 


□ Pagherò contrassegno al postino il prezzo indicato piò L. 3.000 per contributo fisso 
spese di spedizione 


Condizioni di pagamento con esenzione del contributo spese di spedizione 

C Allego assegno della Banca fi Allego fotocopia del versamento 

su c/c n 1 1666203 a voi intestato 


J Allego fotocopia di versamento 

n* su vaglia postale a voi mtesuto 


Brian Ltoyd 

I TUOI AMICI COMMODORE 16 
E PLUS 4 

Anche i computer hanno un 
cuore: impara a programmare 
con i tuoi amici C16 e Plus 4. 

cod. 423B Pag. 168 
Lire 16.000 

Rodnay Zaks 

IL TUO PRIMO COMPUTER 

Una semplice introduzione al 
mondo dei personal orientata 
ad utenti alla loro prima espe- 
rienza con il computer 

cod. 351 D Pag. 240 
Lire 25.000 




Cognome 

Via 

Cap Città Prov 

Data Firma 


Spazio riservato alle Aziende. SI richiede remissione di fattura ORDINE 

MINIMO 

Partila I.V.A. I I I I I I I I I I I I L “° 00 





JACKSON 




Le strenne 
firmate Jackson 


COFANETTI 
SPEEDY COMPUTER 

L'informatica attraverso i testi e 
le immagini studiate per i 
bambini può diventare facile 
anche per ... mamma e papà. 

Cod. CU001 Lire 45.000 
Cod. CU002 Lire 45.000 


ROMANZO ROSA CON IL C64 

Marco Bucceri Francesc o Davi ni 
St efania Deambro gi 
Sei un tipo romantico? Ti 
piacciono i romanzi? 

Il computer, attraverso un 
simpatico programma scritto per 
Commodore 64, collabora con 
te e con ... nella costruzione di 
un Vostro "Romanzo rosa". 

Con floppy disk, 

Cod. CC230 Lire 40.000 


ritagliare (o fotocopiare) e spedire in busta chiusa a: 
GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 

CEDOLA DI COMMISSIONE LIBRARIA 


^x§ 

20124 Milano 


VOGLIATE SPEDIRMI 


IMPARA IL BRIDGE 
CON IL COMPUTER 


Imparare il bridge con l'aiuto del 
computer diventa un piacevole 
passatempo. Un programma 
interattivo elaborato su IBM e 
su C 64 ti conduce passo passo 
a diventare ... quasi un esperto 
di bridge. Poi con un po’ di 
applicazione ... 


n° copie 

codice 

Titolo 

Prezzo unitario 

Prezzo totale 
















Totale 



U Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo fisso spese di spedizione. 
Condizioni di pagamento con esenzione del contributo spese di spedizione: 

C Allego assegno della Banca □ Allego fotocopia del versamento sul c/c n. 11666203 a voi intestato 

N° U Allego fotocopia di versamento su vaglia postale a voi intestato 



Con floppy disk per C 64 
Cod. CC229 Lire 50.000 
Con floppy disk per IBM 
Cod. CC239 Lire 50.000 


Nome e Cognome 


Spazio riservato alle Aziende Si richiede l’emissione di fattura 
Partiva. VA. M 11 1 I I I I I 1 I I 


ORDINE 
MINIMO 
L. 50 000 


Puoi trovare le strenne Jackson 
nelle migliori librerìe 
o richiederle direttamente al Gruppo Editoriale Jackson 


COMPUTER IMAGE 

Mauro Salvemini 
Chi è ancora convinto che il 
computer limiti le possibilità 
creative dell’uomo, può scorrere 
nel libro, le splendide immagini 
di computer-art a colori e ... 
convincersi del contrario. 

Cod. CI231 Lire 40.000 


COMPUTERGRAPHIA 


jQ*n Scott 

In 176 meravigliose e 
coloratissime pagine, uno 
splendido viaggio attraverso le 
immagini elaborate con le 
tecniche più avazate di 
computer-graphics, 

Cod. 802P Lire 40.000 


